﻿Public Class BCInscrito
    Public Shared Sub InscreverNoEvento(ByVal strIdEvento As String, ByVal objBEInscrito As BE.BEInscrito)
        Dim objDAInscrito As New DA.DAInscritos
        objDAInscrito.Salvar(strIdEvento, objBEInscrito)
    End Sub

    Public Shared Function VerificarCPF(ByVal strIdEvento As String, ByVal strCPF As String) As Boolean
        Dim objDAInscrito As New DA.DAInscritos
        Return objDAInscrito.VerificarCPF(strIdEvento, strCPF)
    End Function

    Public Shared Function ListarInscritos(ByVal strIdEvento As String) As List(Of BE.BEInscrito)
        Dim objDAInscritos As New DA.DAInscritos
        Return objDAInscritos.Listar(strIdEvento)
    End Function

    Public Shared Function SelecionarInscrito(ByVal strIdInscrito As String) As BE.BEInscrito
        Dim objDAInscritos As New DA.DAInscritos
        Return objDAInscritos.Selecionar(strIdInscrito)
    End Function

    Public Shared Sub Deletar(ByVal strIdInscrito As String)
        Dim objDAInscrito As New DA.DAInscritos
        objDAInscrito.Deletar(strIdInscrito)
    End Sub

    Public Shared Sub AprovarInscritos(ByVal strIdEvento As String, ByVal lstBEInscritoSendoEnviadoEmail As List(Of BE.BEInscrito))
        Dim objDAInscrito As New DA.DAInscritos
        Dim lstInscritosNoEvento As List(Of BE.BEInscrito) = ListarInscritos(strIdEvento)

        For Each objBEInscrito As BE.BEInscrito In lstInscritosNoEvento
            If lstBEInscritoSendoEnviadoEmail.Contains(objBEInscrito) Then
                objBEInscrito.Aprovado = True
                objDAInscrito.Salvar(strIdEvento, objBEInscrito)
            End If
        Next
    End Sub
    Public Shared Function AprovarInscrito(ByVal strIdInscrito As String) As BE.BEInscrito
        Dim objDAInscrito As New DA.DAInscritos
        Dim objBEInscrito As BE.BEInscrito = objDAInscrito.Selecionar(strIdInscrito)
        objBEInscrito.Aprovado = True
        objDAInscrito.Salvar(objBEInscrito.IdEvento, objBEInscrito)
        Return objBEInscrito
    End Function
    Public Shared Function ReprovarInscrito(ByVal strIdInscrito As String) As BE.BEInscrito
        Dim objDAInscrito As New DA.DAInscritos
        Dim objBEInscrito As BE.BEInscrito = objDAInscrito.Selecionar(strIdInscrito)
        objBEInscrito.Aprovado = False
        objDAInscrito.Salvar(objBEInscrito.IdEvento, objBEInscrito)
        Return objBEInscrito
    End Function
End Class
